home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed12.d64 / saw 3 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  7KB  |  229 lines
  1. 10 REM SOUND ALIKE WORDS   SAW 3
  2. 20 REM THIS UNIT PREPARED BY:                  BILL CUMBERLAND  08:05:89
  3. 30 GOTO90
  4. 40 PRINT"     [208]RESS [211][208][193][195][197] [194][193][210] TO CONTINUE
  5. 41 [161]R$:[139]R$[179][177][199](32)[167]41
  6. 42 [142]
  7. 50 [143] <BLIP> SOUND
  8. 51 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  9. 52 [151]54296,7:[151]54277,42:[151]54278,250
  10. 53 [151]54276,23:[151]54273,23:[151]54272,191
  11. 54 [129]T[178]1[164]30:[130]:[151]54276,32:[129]T[178]1[164]50:[130]
  12. 55 [151]54296,0:[142]
  13. 60 [143] <YES> SOUND
  14. 61 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  15. 62 [151]54296,15:[151]54277,42:[151]54278,250
  16. 63 [151]54276,23:[151]54273,23:[151]54272,191
  17. 64 [129]T[178]1[164]100:[130]:[151]54276,32:[129]T[178]1[164]200:[130]
  18. 65 [151]54296,0:[142]
  19. 70 [143] <NO> SOUND
  20. 71 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  21. 72 [151]54296,15:[151]54277,18:[151]54278,242
  22. 73 [151]54276,33:[151]54273,4:[151]54272,48
  23. 74 [129]T[178]1[164]300:[130]:[151]54276,32:[129]T[178]1[164]400:[130]
  24. 75 [129]E[178]S[164]S[170]28:[151]E,0:[130]:[142]
  25. 81 [129]T[178]1[164]1000:[130]:[142]
  26. 82 [129]T[178]1[164]2000:[130]:[142]
  27. 83 [129]T[178]1[164]3000:[130]:[142]
  28. 84 [129]T[178]1[164]4000:[130]:[142]
  29. 85 [129]T[178]1[164]5000:[130]:[142]
  30. 86 [153]"    (null)RESS (null)(null)ATNLENVAL PEEKATN(null) TO START.
  31. 87 GETR$:IFR$<>CHR$(32)THEN87
  32. 88 RETURN
  33. 89 :
  34. 90 POKE53280,11:POKE53281,11:POKE646,3:POKE53272,23
  35. 105 PRINT"[147]          [211][207][213][206][196][160][193][204][201][203][197][160][215][207][210][196][211]":GOSUB81:GOSUB50
  36. 110 PRINT"             [213]NIT  [211][193][215] 3 ":GOSUB82
  37. 115 PRINT"[147]    [200]ERE ARE 20 QUESTIONS WITH WORDS        THAT SOUND ";
  38. 120 PRINT"ALIKE BUT ARE NOT.":GOSUB82
  39. 125 PRINT"    [212]EST YOURSELF.":GOSUB81
  40. 130 PRINT"    [199]OOD LUCK!":GOSUB81:GOSUB50
  41. 135 PRINT"    [208]RESS [211][208][193][195][197] [194][193][210][159] TO CONTINUE     [156]P[159]"
  42. 140 GETR$:IFR$<>CHR$(32)AND R$<>"P"THEN140
  43. 145 IFR$=CHR$(32)THEN1000
  44. 200 PRINT"[147]  [212]HESE ARE THE WORDS USED IN [211][193][215] 3:
  45. 205 [153]"   KNOW  /  N      .   EYE  /  RIGHT$
  46. 210 PRINT"    SUN  /  SON    .  WEAK  /  WEEK
  47. 215 [153]"   BEAR  /  BARE   .  FAIR  /  FARE
  48. 220 PRINT"    FIR  /  FUR    .  HEEL  /  HEAL
  49. 225 [153]"    RED  /  READ   .   BEE  /  BE "
  50. 290 [141]83:[141]50:[141]86
  51. 1000 [153]"SYSLOAD 1 * (null)HE DID NOT [     ] WHO (null)OM WAS."
  52. 1005 [153]"      KNOW   *   NO    OPEN"
  53. 1010 [153]"   (null)YPE IN THE MISSING WORD."
  54. 1015 [133]" ";A$
  55. 1020 [139]A$[178]"KNOW"[167]1040
  56. 1025 WR[178]WR[170]1
  57. 1030 [153]"   (null)HE WORD IS (null)(null)(null) >> "A$:[141]70:[141]82:[141]40:[137]1000
  58. 1040 [153]"   LENORRECT!OPEN":[141]60:[141]82
  59. 1050 [153]"SYSLOAD 2 * (null)OW HE HAS [    ] BOOKS."
  60. 1055 [153]"      KNOW   *   NO    OPEN"
  61. 1060 [153]"   (null)YPE IN THE MISSING WORD."
  62. 1065 [133]" ";A$
  63. 1070 [139]A$[178]"NO"[167]1090
  64. 1075 WR[178]WR[170]1
  65. 1080 [153]"   (null)HE WORD IS (null)(null)(null) >> "A$:[141]70:[141]82:[141]40:[137]1050
  66. 1090 [153]"   LENORRECT!OPEN":[141]60:[141]82
  67. 1100 [153]"SYSLOAD 3 * (null)HE DUST FLEW INTO MY [     ]."
  68. 1105 [153]"      EYE    *    RIGHT$   OPEN"
  69. 1110 [153]"   (null)YPE IN THE MISSING WORD."
  70. 1115 [133]" ";A$
  71. 1120 [139]A$[178]"EYE"[167]1140
  72. 1125 WR[178]WR[170]1
  73. 1130 [153]"   (null)HE WORD IS (null)(null)(null) >> "A$:[141]70:[141]82:[141]40:[137]1100
  74. 1140 [153]"   LENORRECT!OPEN":[141]60:[141]82
  75. 1150 [153]"SYSLOAD 4 * (null)OW [    ] CAN'T SEE! "
  76. 1155 [153]"      EYE    *    RIGHT$   OPEN"
  77. 1160 [153]"   (null)YPE IN THE MISSING WORD."
  78. 1165 [133]" ";A$
  79. 1170 [139]A$[178]"RIGHT$"[167]1190
  80. 1175 WR[178]WR[170]1
  81. 1180 [153]"   (null)HE WORD IS (null)(null)(null) >> "A$:[141]70:[141]82:[141]40:[137]1150
  82. 1190 [153]"   LENORRECT!OPEN":[141]60:[141]82
  83. 1200 [153]"SYSLOAD 5 * LEFT$E TOOK HIS [    ] FISHING."
  84. 1205 [153]"      SUN    *   SON    OPEN"
  85. 1210 [153]"   (null)YPE IN THE MISSING WORD."
  86. 1215 [133]" ";A$
  87. 1220 [139]A$[178]"SON"[167]1240
  88. 1225 WR[178]WR[170]1
  89. 1230 [153]"   (null)HE WORD IS (null)(null)(null) >> "A$:[141]70:[141]82:[141]40:[137]1200
  90. 1240 [153]"   LENORRECT!OPEN":[141]60:[141]82
  91. 1250 [153]"SYSLOAD 6 * (null)HE [   ] SHONE BRIGHTLY."
  92. 1255 [153]"      SUN    *    SON    OPEN"
  93. 1260 [153]"   (null)YPE IN THE MISSING WORD."
  94. 1265 [133]" ";A$
  95. 1270 [139]A$[178]"SUN"[167]1290
  96. 1275 WR[178]WR[170]1
  97. 1280 [153]"   (null)HE WORD IS (null)(null)(null) >> "A$:[141]70:[141]82:[141]40:[137]1250
  98. 1285 [153]"DEFON   (null)RY AGAIN.   OPEN":[141]70:[137]1265
  99. 1290 [153]"   LENORRECT!OPEN":[141]60:[141]82
  100. 1295 W[178]0
  101. 1300 [153]"SYSLOAD 7 * (null)OME TREES ARE [    ] IN WINTER."
  102. 1305 [153]"      BEAR   *    BARE   OPEN"
  103. 1310 [153]"   (null)YPE IN THE MISSING WORD."
  104. 1315 [133]" ";A$
  105. 1320 [139]A$[178]"BARE"[167]1340
  106. 1325 WR[178]WR[170]1
  107. 1330 [153]"   (null)HE WORD IS (null)(null)(null) >> "A$:[141]70:[141]82:[141]40:[137]1300
  108. 1340 [153]"   LENORRECT!OPEN":[141]60:[141]82
  109. 1350 [153]"SYSLOAD 8 * (null)HIS PAIN IS HARD TO [    ]."
  110. 1355 [153]"      BEAR    *    BARE  OPEN"
  111. 1360 [153]"   (null)YPE IN THE MISSING WORD."
  112. 1365 [133]" ";A$
  113. 1370 [139]A$[178]"BEAR"[167]1390
  114. 1375 WR[178]WR[170]1
  115. 1380 [153]"   (null)HE WORD IS (null)(null)(null) >> "A$:[141]70:[141]82:[141]40:[137]1400
  116. 1390 [153]"   LENORRECT!OPEN":[141]60:[141]82
  117. 1400 [153]"SYSLOAD 9 * (null)HE (null)IKINGS HAD [    ] HAIR."
  118. 1405 [153]"      FAIR    *    FARE  OPEN"
  119. 1410 [153]"   (null)YPE IN THE MISSING WORD."
  120. 1415 [133]" ";A$
  121. 1420 [139]A$[178]"FAIR"[167]1440
  122. 1425 WR[178]WR[170]1
  123. 1430 [153]"   (null)HE WORD IS (null)(null)(null) >> "A$:[141]70:[141]82:[141]40:[137]1400
  124. 1440 [153]"   LENORRECT!OPEN":[141]60:[141]82
  125. 1450 [153]"SYSLOAD10 * STR$ID YOU PAY YOUR [    ] ON THE BUS?"
  126. 1455 [153]"      FAIR    *    FARE OPEN"
  127. 1460 [153]"   (null)YPE IN THE MISSING WORD."
  128. 1465 [133]" ";A$
  129. 1470 [139]A$[178]"FARE"[167]1490
  130. 1475 WR[178]WR[170]1
  131. 1480 [153]"   (null)HE WORD IS (null)(null)(null) >> "A$:[141]70:[141]82:[141]40:[137]1450
  132. 1490 [153]"   LENORRECT!OPEN":[141]60:[141]82
  133. 1500 [153]"SYSLOAD11 * (null)HE [     ] TREE IS AN EVERGREEN."
  134. 1505 [153]"      FUR     *     FIR         OPEN"
  135. 1510 [153]"   (null)YPE IN THE MISSING WORD."
  136. 1515 [133]" ";A$
  137. 1520 [139]A$[178]"FIR"[167]1540
  138. 1525 WR[178]WR[170]1
  139. 1530 [153]"   (null)HE WORD IS (null)(null)(null) >> "A$:[141]70:[141]82:[141]40:[137]1500
  140. 1540 [153]"   LENORRECT!OPEN":[141]60:[141]82
  141. 1550 [153]"SYSLOAD12 * (null)HE BEAVER HAS SOFT [    ]."
  142. 1555 [153]"      FUR     *     FIR  OPEN"
  143. 1560 [153]"   (null)YPE IN THE MISSING WORD."
  144. 1565 [133]" ";A$
  145. 1570 [139]A$[178]"FUR"[167]1590
  146. 1575 WR[178]WR[170]1
  147. 1580 [153]"   (null)HE WORD IS (null)(null)(null) >> "A$:[141]70:[141]82:[141]40:[137]1600
  148. 1590 [153]"   LENORRECT!OPEN":[141]60:[141]82
  149. 1600 [153]"SYSLOAD13 * (null)HE LOST THE [    ] OF HER SHOE."
  150. 1605 [153]"      HEAL  *   HEEL OPEN"
  151. 1610 [153]"   (null)YPE IN THE MISSING WORD."
  152. 1615 [133]" ";A$
  153. 1620 [139]A$[178]"HEEL"[167]1640
  154. 1625 WR[178]WR[170]1
  155. 1630 [153]"   (null)HE WORD IS (null)(null)(null) >> "A$:[141]70:[141]82:[141]40:[137]1600
  156. 1640 [153]"   LENORRECT!OPEN":[141]60:[141]82
  157. 1650 [153]"SYSLOAD14 * RIGHT$ HOPE YOUR CUT TOE WILL [     ]."
  158. 1655 [153]"      HEAL   *   HEEL  OPEN"
  159. 1660 [153]"   (null)YPE IN THE MISSING WORD."
  160. 1665 [133]" ";A$
  161. 1670 [139]A$[178]"HEAL"[167]1690
  162. 1675 WR[178]WR[170]1
  163. 1680 [153]"   (null)HE WORD IS (null)(null)(null) >> "A$:[141]70:[141]82:[141]40:[137]1650
  164. 1690 [153]"   LENORRECT!OPEN":[141]60:[141]82
  165. 1700 [153]"SYSLOAD15 * (null)HE CAT WANTS [     ] SUPPER."
  166. 1705 [153]"      ITS    *    IT'S        OPEN"
  167. 1710 [153]"   (null)YPE IN THE MISSING WORD."
  168. 1715 [133]" ";A$
  169. 1720 [139]A$[178]"ITS"[167]1740
  170. 1725 WR[178]WR[170]1
  171. 1730 [153]"   (null)HE WORD IS (null)(null)(null) >> "A$:[141]70:[141]82:[141]40:[137]1700
  172. 1740 [153]"   LENORRECT!OPEN":[141]60:[141]82
  173. 1750 [153]"SYSLOAD16 * [    ] TIME TO GO HOME."
  174. 1755 [153]"      ITS    *    IT'S   OPEN"
  175. 1760 [153]"   (null)YPE IN THE MISSING WORD."
  176. 1765 [133]" ";A$
  177. 1770 [139]A$[178]"IT'S"[167]1790
  178. 1775 WR[178]WR[170]1
  179. 1780 [153]"   (null)HE WORD IS (null)(null)(null) >> "A$:[141]70:[141]82:[141]40:[137]1750
  180. 1790 [153]"   LENORRECT!OPEN":[141]60:[141]82
  181. 1800 [153]"SYSLOAD17 * (null)HE BAND [     ] THE PARADE."
  182. 1805 [153]"      LED    *    LEAD  OPEN"
  183. 1810 [153]"   (null)YPE IN THE MISSING WORD."
  184. 1815 [133]" ";A$
  185. 1820 [139]A$[178]"LED"[167]1840
  186. 1825 WR[178]WR[170]1
  187. 1830 [153]"   (null)HE WORD IS (null)(null)(null) >> "A$:[141]70:[141]82:[141]40:[137]1800
  188. 1840 [153]"   LENORRECT!OPEN":[141]60:[141]82
  189. 1850 [153]"SYSLOAD18 * RIGHT$T'S AS HEAVY AS [     ]."
  190. 1855 [153]"      LED     *    LEAD  OPEN"
  191. 1860 [153]"   (null)YPE IN THE MISSING WORD."
  192. 1865 [133]" ";A$
  193. 1870 [139]A$[178]"LEAD"[167]1890
  194. 1875 WR[178]WR[170]1
  195. 1880 [153]"   (null)HE WORD IS (null)(null)(null) >> "A$:[141]70:[141]82:[141]40:[137]1850
  196. 1890 [153]"   LENORRECT!OPEN":[141]60:[141]82
  197. 1900 [153]"SYSLOAD19 * MID$IM BEGAN TO FEEL VERY [     ]."
  198. 1905 [153]"      WEEK    *    WEAK  OPEN"
  199. 1910 [153]"   (null)YPE IN THE MISSING WORD."
  200. 1915 [133]" ";A$
  201. 1920 [139]A$[178]"WEAK"[167]1940
  202. 1925 WR[178]WR[170]1
  203. 1930 [153]"   (null)HE WORD IS (null)(null)(null) >> "A$:[141]70:[141]82:[141]40:[137]1900
  204. 1940 [153]"   LENORRECT!OPEN":[141]60:[141]82
  205. 1950 [153]"SYSLOAD20 * MID$IM MISSED A [     ] OF SCHOOL."
  206. 1955 [153]"      WEEK    *    WEAK   OPEN"
  207. 1960 [153]"   (null)YPE IN THE MISSING WORD."
  208. 1965 [133]" ";A$
  209. 1970 [139]A$[178]"WEEK"[167]1990
  210. 1975 WR[178]WR[170]1
  211. 1980 [153]"   (null)HE WORD IS (null)(null)(null) >> "A$:[141]70:[141]82:[141]40:[137]1950
  212. 1990 [153]"   LENORRECT!OPEN":[141]60:[141]82
  213. 2000 [153]"LOAD                  (null)ATN(null) 3 WAIT
  214. 2005 PRINT"   [217]OU HAVE COMPLETED 20 QUESTIONS.":GOSUB81
  215. 2010 PRINT"   [217]OU MADE "WR" MISTAKES.
  216. 2015 [139] WR[178]0[167][153]"    VALXCELLENT WORK!
  217. 2020 IF WR=1THENPRINT"    VERY GOOD WORK
  218. 2025 [139] WR[178]2[167][153]"    CHR$OOD WORK - BUT YOU CAN DO BETTER.
  219. 2030 IF WR=3THENPRINT"    [211]URELY, YOU CAN DO BETTER THAN THIS.
  220. 2035 [139] W[177]3[167][153]"    (null)LEASE TELL YOUR TEACHER THAT YOU       NEED HELP.
  221. 2040 GOSUB82:GOSUB50:GOSUB40
  222. 2045 PRINT"    [208]RESS [211][208][193][195][197][160][194][193][210] TO CONTINUE
  223. 2050 [161]R$:[139]R$[179][177][199](32)[167]2050
  224. 2055 [153]"LOAD (null)ETURNING TO THE DISK MENU
  225. 2060 LOAD"MENU",8
  226. 2065 RUN
  227. 2070 END
  228. 3000 REM WHC 90:06:11/91:01:05
  229.